home *** CD-ROM | disk | FTP | other *** search
/ A Field Trip to the Sky (Demo) / Mac_Sunburst_AFieldTripToTheSky-Demo.iso / DIR / SHARED.DIR / 01309_Script_Guide Full Screen < prev    next >
Text File  |  1996-03-27  |  954b  |  52 lines
  1. on enterFrame
  2.   global gZoomImage, gAlbumFileList
  3.   
  4.   
  5.   set i to (the frame - marker(0))/3
  6.   
  7.   if gZoomImage <> (i+1) then
  8.     
  9.     set gZoomImage to i + 1
  10.     
  11.     set the text of cast "Zoom Caption" to line (gZoomImage * 2 - 1) to gZoomImage * 2 of ¨
  12. the text of cast "Album Captions"
  13.     set the textFont of cast "Zoom Caption" to "palatino"
  14.     
  15.     captionShort()
  16.     
  17.     doFlush()
  18.     
  19.   end if
  20.   
  21.   cursor -1
  22.   
  23. end
  24.  
  25. on exitFrame
  26.   go to the frame
  27. end
  28.  
  29. on mouseDown
  30.   
  31.   set the visible of sprite 5 to FALSE
  32.   
  33.   set c to the castNum of sprite 5
  34.   
  35.   if c <= 0 OR the clickOn <> 5 then
  36.     
  37.     if the locv of sprite 9 < 1000 then
  38.       captionShort(word 1 of the frameLabel)
  39.     end if
  40.     
  41.     if c > 0 then
  42.       set the movieRate of sprite 5 to 0
  43.       --set the movieTime of sprite 5 to 0
  44.     end if
  45.     
  46.     go to the frame + 1
  47.   end if
  48.   
  49.   set the visible of sprite 5 to TRUE
  50.   
  51. end 
  52.